home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 September / Ahoy_Magazine_87-09_1987_Double_L_Side_A.d64 / Disk Notcher (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  413b  |  18 lines
  1. 10 rem *** disk notch sensor ****
  2. 20 rem *** author: nghia tran ***
  3. 21 print"[147]press any key to check disk"
  4. 22 get a$
  5. 23 if a$="" then 22
  6. 30 open15,8,15:print"[147]"
  7. 40 print#15,"m-r"chr$(30)chr$(0)
  8. 50 get#15,k$
  9. 60 n=asc(k$+chr$(0))
  10. 70 if n=16then 100
  11. 90 print"[147]disk's notch is write-protected[146]":goto110
  12. 100 print"[147]disk's notch is[129] not protected[146]"
  13. 110 print"press r[146] to re-check or q[146] to quit."
  14. 120 get i$
  15. 130 if i$="" then 120
  16. 140 if i$="r" then 40
  17. 150 close15:end
  18.